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MODULE CHARGEQ “LANGUAGE, (BLISS32). 
re vos 881 ; 
BEGIN 
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FACILITY: FI1ACP Structure Level 2 

i ABSTRACT: 


This module contains the routines for charging disk blocks 
against a particular quota file entry. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 22-May-1979 20:51 
i MODIFIED BY: 


v04-001 ¢CDS0005 Christian D. Saether 15-Nov-1984 
Expand test for clusterness to check clu$gl_club. 


v03-012 CDS0004 hristian D. Saether 29-Aug-1984 
Be prepared to find mittels headers when repuliding 
the quota file fcb. Reread header for PRIMARY_FCB 
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CHARGEQ =Jan-1985 17:33:31 AX-11 Bliss<-32 V4.0-74 P 
your 00t Srott=19be 13:28:34 F1IX.BUGSRCICHARGEO.039; 1 — aj 


$ 5 28 1! when rebuilding the quota fcb if it is not the quota H 
; $ 3 ! : file feb. : 
: 58 61 1: v03-011 ¢DS0003 Christian D. Saether — 23-Aug-1984 : 
: 2B § : : Check quota fcb for staleness and rebuild if necessary. : 
> 61 4 13 v03-010 ACGO4G3 Andrew C. Goldstein, 21-Aug-1984 19:51 : 
; 6¢ 5 1! Fix setup of REAL_Q_REC in file search so removal works : 
: o7 : : on a cache miss. ; 
>: 65 068 1 i V03-009 ACG0438 Andrew C. Goldstein, 19-Jul-1984 16:45 : 
; $8 H : Implement write access cache interlock : 
; 68 0071 1! v03-008 ACG0430 Andrew C. Goldstein sy eee 15:07 : 
; i Ba 78 : } Fix reference to quota cache value block in R L_QUOTA_LOCK : 
: 71 9074 1! v03-007 ACG0429 Andrew C. Goldstein, | 21-May-1984 12:00 : 
; q one? ! Fix flow bug in ACG0428 : 
; 7% $079 1/ v03-006 ACG0428 Andrew C. Goldstein, 18-May-1984 14:29 : 
3 Le Bare ' Re-read quota record if value block not valid : 
: 77 9080 1: vO3-005 ACG0408 Andrew C. Goldstein, 23-Mar-1984 14:40 : 
: % 49 : } Add AST parameter so that impure storage is fully based : 
: 80 $088 1/ v03-004 ACG0400 Andrew C. Goldstein, 1-Mar-1984 21:09 : 
; 3 Sone ; Implement cluster-wide quota cacheing : 
: 8 0086 1: v03-003 cDs0002 Christian D. Saether 29-Dec-1983 F 
; He a $4 : Use L_NORM Linkage and BIND_COMMON macro. : 
: 86 0089 1: v03-002 cps0001 Christian D. Saether 6-Dec-1983 : 
; 44 Bp0 ! Serialize quota checking operations using allocation lock. : 
> 89 0098 1 i v03-001 ACG0337 Andrew C. Goldstein, 16-May-1983 16:04 : 
; oy it : Fix handling of quota cache counters : 
 ¢ 0095 1: v02-006 ACG0229 Andrew C. Goldstein, 23-Dec-1981 21:45 ; 
5 a 0097 : } Add counters for quota cache hits and misses : 
: 95 98 1! v02-005 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 ; 
: % 1: Previous revision history moved to f11B.REV ; 
: B 100 1 !ee 3 
iB fey 7 
: 100 1 4 1 LIBRARY o SESS 1ORARY 31 18,52": ; 
3 ii 1 : } REQUIRE ‘SRC$:FCPDEF .B32'; : 
: 4 : 1 1 FORWARD ROUTINE ; 
; 1 1 CHARGE _QUOTA : LLNORM NOVALUE, ! check and/or charge disk blocks : 
; 105 1 1 SEARCH QUOTA : LUNORA, ; seorch for a quota file record : 
: 106 1 1 WRITE GUOTA LINORM NOVALUE, |! write back a quota record 3 
: 10 11 1 SCAN_GUO_CACHE : L-NORM, ' search the quota cache 3 
: 108 1101 1 GET_GUOTA_LOCK =: LINORM NOVALUE, ! acquire lock on > .e rile entry : 
3; 109 11 5 1 REL _QUOTA_LOC L-NORM NOVALUE, ! release hoch oh quota file entry 3 
: 110 11 1 CLEAN_QUO-CACHE : L-NORM NOV - | write modified cache entry : 
3.6101 11 1 ENTER_QUO_CACH L_NORM NOVALUE; ! make a new cache entry 3 
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voenG5s 3071382 er eH YET BoGsReICHARGeS.03951 a (2) v¢ 
H 113 i} 5 } GLOBAL ROUTINE CHARGE QUOTA (UIC, BLOCK_COUNT, FLAGS) : L_NORM NOVALUE = : 
: 115 1107 1 te : 
3 118 11 : 1! 3 
3 1} 1) ! FUNCTIONAL DESCRIPTION: . : 
: 119 Wa 13 This routine locates the quota file qntey identified by the UIC : 
: 120 W318 1! given ang checks and/or charges the indicated number of blocks, : 
: : 1 14N7 : : as specified by the flags. : 
: 4 1115 1 | CALLING SEQUENCE: ; 
é } ¢ 1118 : CHARGE _QUOTA (ARG1, ARG2, ARG3) : 
; 3 6 1118 1 | INPUT PARAMETERS: ; 
; 1 1119 1! ARG1: UIC of entry to charge : 
: 128 1120 1: ARG2: fyaber of blocks to charge (negative to credit) 

s te 1121 1! ARGS: bit encoded flags 

. 11 é 1! bit 6 set to check if quota will be exceeded 

3 : 1 1} Z : : bit 1 set to actually charge blocks to the quota entry 

: 4 : 1125 1) IMPLICIT INPUTS: 

7% 11 $ 1! 10_PACKET: user's 1/0 packet 

5 ' 5 3 i : } CURRENT_RVN: RVN of vclume 

; 138 1 3 OUTPUT, PARAMETERS: 

: 139 1131 1 

; 140 11 § 1 ! IMPLICIT OUTPUTS: 

3: «6161 11 1! NONE 

3 10g 11 1! 

3 1° 1% 5 : ROUTE wees 

> 145 1137 1: 

3 123 11 : 1 ! SIDE EFFECTS: 

: 14 11 1! quota file modified 

3; «6148 1140 1! 

: 149 1141 1 !e- 

: 4a 08 | 

; 13¢ 1144 2 BEGIA 

HONE Saw 

: is Hi FLAGS : BITVECTOR; ' flags argument 

: 4 114 LABEL 

3 138 1131 CHECK_QUOTA; ! block of code to check quota 

: 1 11 oc 

3 18 11 i = SAVE _RVN, ' place to save current RVN 

3 198 iy : Q_RETORD : REF BBLOCK; ! address of quota file record 

: 164 11 BIND_COMMON; 

HES ccremun yr 

; 167 11 SWITCH VOLUME =: L_NORM; ! switch to desired RVN 

: 168 1169 

3; % 116 
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-0¢t-1984 12:4 
! Save the current RVN and then switch context to the root RVN. 


: First locate the quota file record. If there is no quota file enabled, this 
H routine is a NOP, 


SAVE _RVN = .CURRENT_RVN; 
SWITCH VOLUME (1); 
CHECK_QUOTA: BEGIN 


Q_RECORD = SEARCH_QUOTA (.UIC, 0, 0, 1); 
IF .Q_RECORD EQL =1 THEN LEAVE CHECK_QUOTA; 


! Check for quota exceeded if requested and the user does not have EXQUOTA 


! privilege. If we are to check, lack of a quota record is an error; 
we do not check, this routine is a NOP. 


IF .FLAGSCQUOTA_CHECK) 
AND NOT .BBLOCK [BBLOCK C.JO_PACKETCIRPSL_ARB], ARBSQ_PRIV], PRVS$V_EXQUOTA) 


BEG 
IF 


-Q_RECORD EQL 0 
THEN ERR_EXIT (SS$_EXDISKQUOTA); 
UF je RECORDLDOF SL USAGE) + .BLOCK_COUNT GTRU .Q_RECORDCDOF $L_PERMQUOTA] 


BEGIN 
IF .CURRENT_WINDOW NEQ 0 
THEN 

BEGIN 

IF CURRENT _WINDOWLWCBSV_OVERDRAWN) 


BEGIN 

IF -Q_RECORDEDQFSL_USAGE + .BLOCK_COUNT GTRU 
-Q-RECOR Dar St -PE MQUOTA) + .Q~RECORD(DOF$L_OVERDRAFT) 

THEN ERR_EXIT (SS$~EXDISKQUOTA) 

ELSE ERRSTATUS (SS$_OVRDSKQUOTA); 


BEGIN 
CURRENT wINpOULUCESY OVERDRAWN) = 1; 
ERR EXIT (SS$_EXDISKGUOTA) ; 


ELSE 
- ERR_EXIT (SS$_EXDISKQUOTA); 


SE 
IF .Q_RECORD EQL 0 THEN LEAVE CHECK_QUOTA; 


! If the record is to be charged, do so. Check the result to see if it 


} is negative; if so, zero it to prevent absurd results. 


IF .FLAGSCQUOTA_CHARGE) 
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00006 
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FFFFFFFF 
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08 
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END; 
SWITCH_VOLUME (.SAVE_RVN); 
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! end of block CHECK_QUOTA 


! end of routine CHARGE_QUOTA 
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CHARGEQ =Jan-1985 17:33:31 AX-11 Bliss-32 v4.0-7 P C 
voenG5s me ao ee oP rr eo age 58 ve 
08 AO 06 7A CLAL 8(Q_RECORD) 3 1223 
8 dD 7D 5$: PUSHL QR : 1332 
0000v CF | ra 7F CALLS #7, WRITE_QUOTA : 
DD 00084 6$: PUSHL SAVE_RVN 3 1229 
00006 CF 01 FB CALLS #1, SWITCH_VOLUME 3 
04 00088 RET 3 1231 


; Routine Size: 140 bytes, Routine Base: S$CODE$ + 0000 
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GLOBAL ROUTINE SEARCH_QUOTA (UIC, FLAGS, START_REC, USE_CACHE) : L_NORM = 


ee 
1 
FUNCTIONAL DESCRIPTION: 


This routine searches the quota file for the specified UIC under 
control of the match flags. 


CALLING SEQUENCE: 
SEARCH QUOTA (ARG1, ARG2, ARG3, ARG4) 


INPUT PARAMETERS: 
ARG1: UIC to search for 
ARGE: match control flags from FIB 
ARGS: record number at which to start 
ARG4: 1 to find record in the cache 
to unconditionally go to the quota file 


IMPLICIT INPUTS: 
CURRENT_VCB: address of volume's VCb 
context set to RYN 1 of volume set 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
QUOTA_RECORD: record number of found record 
FREE GUOTA: record swumber of first free quota file entry 
QUOTA_INDEX: cache index of cache entry f found 
DUMMY _REC: filled in with cache contents if found 


ROUTINE VALUE: 
address of quota file record found, 0 if none, -1 if not quota file 


SIDE EFFECTS: 
quota file read, contents of buffer cache altered 


BEGIN 
MAP 

FLAGS : BITVECTOR; ! match control flags 
LITERAL 

GROUP TPOSITION (FIBSV_ALL_GRP), 

ALL MEMBER = 4 Wg TES ay (FIBSV_ALL_MEM), 

RECS_PER_BLOCK = / DQFSC_LENGTH; 
LABEL 

QUOTA_SCAN; ! search quota file 
LOCAL 


cB : REF BBLOCK, ! address of quota file FCB 
QUOTA_CACHE : REF BBLOCK, ! apcress of ta cache 
QUOTA_LIST : REF BBLOCKVECTOR [,VCASC_QUOLENGTH), 
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4 eeevecs of quota cache entries 
n che 


nec NUM — file Tecore te reed 
! r r) 
FIRST_REC, ! Test record in block to use 
VBN ! block number of quota file 
Q_RECORD : REF BBLOCK; | address of quota file record 
BIND_COMMON; 
EXTERNAL ROUTINE 
ALLOCATION LOCK : L_NORM ! allocation lock yh Mn 
BUILD_EXT_FCBS me “NORM “NOVALUE ' build extens fon fcb chain 
SERIAC_FICE RM, get serialization loc 
34 5g PRIM FCB :L “NORM “NOVALUE, ! rebuild fcb from header 
READ_READER ead file header 
RELEASE SERIAL. Lock” : L_NORM NOVALUE , ! release serialization lock 
READ_BLOCK : LNORA; read a disk block 


Get the FCB address for the quota file. If none, take an error exit. 
FCB = ,CURRENT_VCBCVCBSL i, Fhe 

IF FCB EQL 0 THEN RETURA - 

Serialize quota search rae allocation lock. 


ALLOCATION_LOCK (); 
! Check to see if the quota fcb is stale, that is, it has been mc jified 
i on another node. If so, serialize on the quota file itself, read 
: the header and rebuild the fcb. 
IF .FCB CFCBSV_STALEJ 
THEN 
BEGIN 
LOCAL 
HEADER 
SAV_CURRLCKINDX; 
SAV_CURRLCKINDX = .CURR_LCKINDX; 
SERIAL_FILE (FCB CFCBSW_FIDI); 
fetying, this flap prevents READ HEADER from nest tyine FILE HEADER. 
e 


it is also set when the D_EXT_FCBS routine calls READ_READER 
f BUILD_EXT_FCBS is sliced Letth the optional fcb argument. 


STSFLGS [STS_LEAVE_FILEHDR] = 
HEADER = READ_HEADER (0, .FCB); 
REBLD_PRIM_FCB (.FCB, HEADER); 
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BUILD_EXT_FCBS (.HEADER, .FCB); 
IF .SAV_CURRLCKINDX NEQ .CURR_LCKINDX 
THEN 


—b 


BEGIN 
RELEASE SERIAL_LOCK (.CURR_LCKINDX); 
CURR LCRINOX =”. SAV_CURRLCRINDX; 


: if PRIMARY_FCB is nonzero and not the quota file fcb, and also if 
! it is the Same lockbasis as Bie current lock index, then reread 
H the header for it to re-establish FILE_HEADER. 


PUPP E & 


MEUM —"OOONOUNES WO 0ONO 


IF_ PRIMARY _FCB NEQ 0 


IF .PRIMARY FCB NEQ .FCB 
-PRIMARY_FCB CFCBSL_LOCKBASIS) EQL .LB_SASIS C.CURR_LCKINDX] 


READ_HEADER (0, .PRIMARY_FCB); 
END; 


If there are no wild cards in the search, scan the quota cache first. 
If the value block was lost, the cache entry comes back not valid, 

t with contents. In this case, and if this is a write-through operation, 
use the record number in the cache to read the record to save the search. 
As long as the record is read, also update it if the cache entry is dirty. 


REAL_Q REC = 0; 

QUOTA_CACHE = .CURRENT_VCBCVCBSL_QUOCACHE); 
QUOTA-LIST = QUOTA _CACRECVCASL_QUOLISTI; 

IF NOT -FLAGSCALL_MEMBER) AND NOT .FLAGSCALL_GROUP 


BEGIN 
J = SCAN_QUO_ CACHE (.UIC, .USE_CACHE); 
If ,QUOTA_LISTC.J-1, VCASL_QUORECNUM] NEQ 0 


BEGIN 
IF NOT .USE_ CACHE 
NOT .QUOTA_LISTC.J-1, VCASV_QUOVALID) 
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OR ¥ 

8 OR NOT .QUOTA~CACHELVCA$V_CACHEVALID 

5 THEN gin 
4 91 QUOTA_RECORD = .QUOTA_LISTC.J-1, VCASL QUORE CNUM] 
4 3 RE = ,QUOTA_LISTE.J-1, VCASL_QUORECNUM) - 1; 
4 9 REAC_Q_REC = READ_BLOCK (.REC NUR / RECS PER BLOCK 
4 9% + .FCBCFCBSL_STCBNJ, 1, QUOTA_TYPE) 
4 95 + CREC_NUR MOD RECS PERIBLOCK) * BOFSC_LENGTH; 
4 % IF {Quota LISTE. J- , VCASV_QUOVALTD 
4 38 CLEAN_QUO_CACHE (.J, .REAL_Q_REC) 
t i ' 
410 401 ENTER QUO_CACHE (.J, .REAL_Q_REC, 0, .USE_CACHE); 
411 402 CHSMOVE (DOFSC_LENGTH, .REAL“Q_REC, DUMMY-REC); 
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END; 
END; 
RETURN BUMMY_REC; 
END; 
END; 
! We couldn't find a valid roche entry (either because it's not there 
: or the operation won't ailow it). Scar the blocks of the quota file, 
looking for a matching record. 
QUOTA_SCAN: BEGIN 
FIRST REC = .START_REC MOD RECS_PER BLOCK; 
yaa QBN FROM .START_REC/RECS_PER_BCOCK 16 -FCBCFCBSL_EFBLK] - 1 
BEGIN 
Q_RECORD = READ_BLOCK (.VBN + .FCBCFCBSL_STLBNI, 
. Cr COS LEFBLK - .VBN, 
+ .FIRST_REC * DQFSC_LENGTH; 
face J FROM .FIRST_REC TO RECS_PER_BLOCK - 1 


BEGIN 
QUOTA_RECORD = .VBN * RECS_PER_BLOCK + .J + 1; 
IF .Q_RECORDCDQFSV_ACTIVE) 
THEN 
BEGIN 
IF (.FLAGSCALL_MEMBER] OR mite 


AND (.FLAGSCALL-GROUP] OR .U 
THEN LEAVE QUOTA_SCAN; 


mm 
QO 
oo 


ROCDQF SL 
RDOCDQF SL 


ELSE 


IF .FREE_QUOTA EQL 0 
THEN FREE_QUOTA = .QUOTA_RECORD; 


Q RECORD = .Q_RECORD + DQFSC_LENGTH; 
ERD; ! end of inner loop 


FIRST_REC = 0; 
END; ! end of block scan loop 


IF NOT .FLAGSCALL MEMBER) AND NOT .FLAGSCALL_GROUP) 
THEN REL QUOTA_LOCK (J); 

RETURN 0; ' return 0 if not found 
END; ! end of block QUOTA_SCAN 


! We have found a record in the quota file. If there were wild cards, now 
' scan the quota cache to see if an entry is present. With wild cards 
: file must be scanned first to be able to 

‘ 


<o- 


return the entries in a coherent 
! order; yet we must look at the cache in case a modified entry is present. 


PUS 
CALLS ARS AY CBS 
CMPL SA. CURALCKINDX O(BASE) 
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¥04-001 “0c t-1984 15: ke 3} YET TK BUSSRETeMAncee.63551 _ 3 
: 188 1289 § neato re RECORD; : 
; ya Woe gE oma MEMBER] OR .FLAGSCALL_GROUP) ; 
: 47 1464 ; 
> 474 1465 or CAN QUO_CACHE (.Q_RECORDCDOF$L_UICI, 0); ; 
> 475 1466 IF Quorn. LISTC.J-1, vengy -QUOVALID2 ; 
: 47 146 ; 
: tbe 12e8 CLEAN QUO CACHE (.J, .Q_RECORD); 
: 479 1290 4 ETURR DUAMY_REC; ; 
; 4 1471 : 
> 481 147¢ : 
; 48 147 3 
: rey Ore atl enter the new record into the quota cache. : 
; tbe 1299 ENTER QUO_CACHE (.J, .Q_RECORD, 0, .USE_CACHE); ; 
: 487 1678 EHSMOVE. CDOFSC LENGTH: re “RECORD, DUMMY"REC); ; 
: 488 147 RETURN DUMMY_REC; ; 
: 489 1480 ; 
; 490 1481 1 END; ! end of routine SEARCH_QUOTA ; 
.EXTRN ALLOCATION_LOCK ; 
SEXTRN BUILD_EXT_FCBS, SERIAL FILE F 
“EXTRN REBLD-PRIM_FCB. READ_HEADER : 
eEXTRAN RELEASE SERIA AL_LO ER 3 
SEXTRN READ_BLOCK ; 
OBFC 00000 -ENTRY SEARCH_QUOTA, Save R2,R3,R4,R5,R6,R7,RB,RI.-; 1232 ; 
0284 PUSHAB 69 (BASE) > 1294 : 
59 0 BC MOVAB 0 (BASE), R9 : ; 
5B C4 MOVAB 708(BASE), R11 : ; 
50 98 MOVL <-104(BASES, RO + 1311 ; 
57 54 MOVL  84(RO), FCB F ; 
BNEQ 1$ + 1312 : 
50 MNEGL #1, RO ; 3 
00006 CF CALLS 40 ALLOCATION_LOCK > 1317 : 
$1 23 BLBC (FCB), 3$ : 1324 : 
2 14 MOVL O(BASES, SAV_CURRLCKINDX ; 1331 : 
00006 CF ” Nits’ 7h SERIAL FILE tone : 
AG AA Brehs #8. TO taASED : 1349 F 
PUSHL FCB :1 : 
CLRL. = (SP) ; ; 
00006 cf CALLS ne READ_HEADER ; : 
3 MOVL HEA’ : : 
PUSHL ADER > 1344 : 
00006 CALLS ih REBLD PRIM_FCB : 
0088 HR RS ed ; 1346 ; 


00006 
14 


<o 


Cuan Bodegas 12553) yay 


oc 13 BEQL § : $ 
16 AA DD PUSHL (BASE) + 1351 ; 
00006 CF o} F CALLS #1, RELEASE_SER At LOCK : ; 
14 AA D MOVL AV_CURRL CE TABN. O(BASE) 3 135 3 
51 08 AA p 2$ MOVL (BASE) RI : 1 ; 
1 BEQL $ : F 
57 51 D CMPL =-R1, FCB + 1362 ; 
16 1 BEQL $ : ; 
50 14 AA D 7 MOVL O(BASE), RO + 1363 ; 
0080 cAd0 4C Al 01 0007 CMPL g(RI), {28 (BASE) CROJ : ; 
31 oS ° op Cite A} : 1365 : 
D4 1 CLRL. =(SP) : : 
00006 CF 02 FB 3 CALLS #2, READ_HEADER : ; 
69 D4 3$ CLRL = (R9) : 1376 : 
50 98 AA 00 BA MOVL -104(BA : 137 : 
52 5C a0 DO 000 : MOVL ag(RO}. a CACHE : F 
56 44 =O 3 009 MOV 68(R2) Quota : 1378 ; 
03 08 AC E 0096 BLBC FLAGS : : 1379 ; 
OO8F 31 O009A 4$: BRW 10$ : : 
a 08 ac 01 £0 00090 5$: BBS #1, FLAGS, 4$ : ; 
10 AC DD OOA PUSHL USE_CACHE + 1382 ; 
04 AC OD OOOA PUSHL a : ; 
0000v CF 08 FB OO0A8 CALLS #2, SCAN |_QUO_ CACHE : ; 
58 DO O00AD MOVL : : 
50 58 1¢ C5 00080 MULL : 1383 3 
50 56 CO 00084 ADDL2 iti cre? RO ; : 
00 EC Ao 18 00 ED 00087 CMPZV #24, -20(RO), #0 : : 
6D 1 90080 BEQL : ; 
08 10 AC €9 000BF BLBC ise CACHE, 6$ : 1386 : 
04 FF Ap 9 O0C3 BLBC = : 1387 ; 
E A2 €8 000C7 BLBS 11 (QUOTA_CACHE) : 1388 ; 
00 BE EC a0 18 00 EF 000CB 6$: EXTZ2V #0, #24,7-20(ROS, *SocsP) : 1391 : 
50 58 1c ¢5 000D MULL3 #28, j RO + 1392 : 
52 EC A046 18 00 EF 9906 EXTZV #0, #24, -20(RO)CQUOTA_LIST], REC_NUM : : 
35 Bo Oo0Dr pick, etn ; 1393 ; 
50 52 9) BD BOGE Diut'S #16. REC : ; 
00006 CF ad of ef CAPS ausiccavtny ome ; 
7E 00 52 Fi 7A £5 EMUL #1. REC_RUM, #0, -(SP) : 1395 
51 51 gE 10 78 OFS EDIV aig. (sp) » RI, RI ; 
69 : ef C1 Born ADDL Rl RO, (RO) ; 
59 5 ic ¢5 00101 MULL iS, RO : 13% 
0B EF A046 09 E1 00105 BBC ‘ “aide YCQUOTA_LISTJ, 8$ ; 
SOB BUNE rs. Fu Nee 
0000v CF ; FB OO10F CALLS » CLEAN_QUO_CACHE : 
1 8 114 BRB : 
10 Ac DD 118 8$ PUSHL USE_CACHE > 1401 
7E D4 0011 CLRL = SP) : 
DD 00118 PUSHL  (R9) : 
0000v CF 4 3 HP CALS * ENTER_QUO_CACHE : 
c ° 
68 00. by 0 B 124 moves #32, a0(R9), TRI1) : 1402 


51 


34 


ou 
Wmo 


oc AC 
oc At 
55 

3¢ A? 
00006 53 
50 

00 ae 
i9 

07 

04 AG 
08 AC 
06 AG 
0288 CA 
54 

50 

52 

4C 

08 AC 
0000v CF 
69 

05 

08 AC 
0000v CF 
EF A046 
0000v CF 
4 

0 


3¢ 


30 


ooo [67 
fo =- 7 


So 
o 


0288 


00 


08 


08 


04 


[=] 
So 


—OO- 


@ 
~ 
NOO=— 
BsatdadaDad . 


POPP LOWY NOOO Liou yp — 


Pd 
oS 


No 


SDMA $$ POO L$ LU" MMPINVION 


O72 9 9 OM MMM oy—O- 


Ff FOODS £09 $9 "10D 9 £ $$ DO" DWF OOM FW) On OOMo—m 


F 
E 
E 
) 
F 
1 
D 
E 
E 
D 
Dd 
F 
D 
C 
D 
Dd 
D 
4) 
F 
Dd 


K 14 
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9 9$: BRW 21$ 
10$: EMUL #1, START_REC, #0, -(SP) 
EDIV. #16, (SP)%, FIRST-REC, FIRST_REC 
DIVL3 #16, START REC, R2 
MOVL  60(FCB), RS 
4 DECL veN 
4 BRB % 
44 11$ PUSH a 
46 SUBL3. VBN, 60(FCB), =(SP) 
48 PUSH 8(F CB) CVBNS 
4F CALLS #3, READ BLOCK 
4 ASHL. #5, FIRST REC R1 
8 ADDL3 1, RO, Q7RECORD 
¢ MOVAB =1(R3). J 
6 BRB 16$ 
62 12$: ASHL #4, BN R1 
66 MOVAB 1(J)CR14, a0(SP) 
6C BLBC 3. CQ RECORD) , 14$ 
of BLBS FLAGS, 13$ 
3 CMPW uic. 4(Q_RECORD) 
78 BNEQ 15$ 
7A 13$: BBS #1, FLAGS, 18$ 
7F CMPW uitee, 6(4_RECORD) 
BNEQ 15$ 
BRB 18$ 
146$:  TSTL 696(BASE) 
C BNEQ 15$ 
BE MOVL a0<sP), 696 (BASE) 
15$ ADDL2 # g- Q_RECORD 
97 16$ AOBLEQ #15, J> 1 
98 CLRL FST REC 
90 17$:  AOBLSS R VGBN, 11$ 
Al BLBS FLAGS, 22$ 
AS BBS #1, FLAGS, 22$ 
AA PUSHL J 
AC CALLS #1, REL_QUOTA_LOCK 
81 BRB 22$ 
B3 18$: MOVL Q RECORD, (R9) 
B6 BLBS FCAGS, 19$ 
BA BBC #1, FLAGS, 20$ 
BF 19$: CLRL -(§P) 
C1 PUSHL  4(Q_RECORD) 
C4 CALLS #2, ~SCAN_QUO_CACHE 
9 MOVL. RO. J 
ce MULL3 #28, J, RO 
BBC #0, /-17(RO)CQUOTA_LISTJ, 208 
D6 PUSHL Q RECORD 
D BRW 7$ 
DB 208 PUSHL USE_CACHE 
ny CLRL. . -<SP) 
E PUSHL  @_RECORD 
: tik: * ENTER _QUO_CACHE 
Eg nove’ #36, (Q_RECORB), (R11) 
ED 218 MOVL R11. RO 
F RET 
Fl 228 CLRL = RO 


en 


fw 


SELES PS 
Me SLES 
ANUS OM 


ee ee ee 
Qo 
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500 bytes, 


Routine Base: 


04 001F3 
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GLOBAL ROUTINE WRITE_QUOTA (Q_RECCRD) : L_NORM NOVALUE = 


144 
4 


FUNCTIONAL DESCRIPTION: 


This routine writes the indicated quota record. If a cache entry 
exists for the record being processed (indicated by the record 
being the dummy record), we update the cache entry. If we also 
have the real quota record in memory, then mark it for write-back. 


Pt oe | 


i CALLING SEQUENCE: 
i WRITE_QUOTA (ARG1) 


i INPUT PARAMETERS: 
ARG1: address of quota record 


i IMPLICIT INPUTS: 
' REAL_Q REC: buffer of real quota record if exists 
QUOTA_INDEX: cache index of cache entry 


i OUTPUT PARAMETERS: 
NONE 


SOOWNOUSUDR “OVO NOUS WO 0O~ 


PUPVPVSUSUSVSVSUSVSUSISISI SII £ 


at 


i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: : 
: quota cache modified, quota record marked for write-back 


AWA TUNINIPUNIPOR PUN 


Q_RECORD : REF BBLOCK; ! address of quota record 
BIND_ COMMON; 


EXTERNAL ROUTINE , 
MARK _DIRTY : LNORM; ! mark buffer for write back 


Ww 
Wwn— 


! If the specified record is the Gunay record, there is » cache entry. 
: jneretere, update it. Also update the associated real ecord if there 
! is one. 

' 


IF .Q@_RECORD EQL DUMMY_REC 
THEN 


a a ee a ce ee ee ee ce ee ee ed De a ee ee ed ed ee ed ed ed ed ed 


athe et hed th tb edb edh ehh chia hh bbe Ab dh thd Abdi dh Ab Ah ah al ah ah ah al 


Pe ee Se Ge Se Be Se Se Ge See Se Fe Se Ge Se Se Se Se Se Se Se Ge Se Ge Ge ee Ge Ge Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Sse Sees ee Se Sete tete @eeas 


PEPPPIPIPIPIHIPIPRIPIAIPIJ IIAP IA a a i i ee a ee a ed ed ed ed 


De ah ah tb th deh th ths bebbedh Abed budb adh dh ppd bbb bah <Abcdh A bubbuehh ah sh sh sh sh shal 
= 


BEGIN 
ENTER_QUO_CACHE ( QUOTA, INDEX, -Q_RECORD, .REAL_Q_REC EQL 0, 2); 
IF .REAL_G_REC NEO 


N14 
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vavaal a ener eee eizsi3l | PPTL Bk ises3e ve. 0-263. 


“Ba, (Dar SC LENGTH -Q_RECORD, .REAL_Q_REC); 
DIRTY (.REAL_Q_REC); 


! Otherwise, if there is no cache entry, we just have to mark the 
' buffer dirty. 


PAA ATIDTIVIVIT 


a 
MARK_DIRTY (.Q_RECORD); 


= 
CoS Se oA hun OD 
Ss Ld td 
PUP LVIVIVIASUSUSVSUSUSIOSISISN 
DPDDA ES BE BEEP PEEP 
WN "OC OONOUS UIT —0O0 


ws 
Aan 


! end of routine WRITE_QUOTA 


eEXTRN MARK _DIRTY 


write cota, Save R2,R3,R4,R5,R6 
: (BASE) 
f He ASE 


So 
Oo 
~ 
o 
NO wos 


ie 


CF QUO_CACHE 


petatatatatotatatetatetatotata) 


06 BC 


MOPOWMO SOO 


2, @@_RECORD, a0(R6) 
(R65 


Q_RECORD 


04 
#T, MARK_DIRTY 


) 
: 
: 
: 


00 
00 


0000G CF 


9 
9 
i) 
1 
Dd 
D 
Dd 
Dd 
D 
F 
D 
1 
5 
1 
Dd 
F 
04 


5 3: 
E 4$: 


: Routine Size: 63 bytes, Routine Base: S$CODE$ + 0280 
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; 26? } 3 : ROUTINE SCAN_QUO_CACHE (UIC, MARK_USE) : L_NORM = : 
Bo ile : 
; 3 1398 1 | FUNCTIONAL DESCRIPTION: ; 
: zal 1560 1! This routine scans the quota cache for the indicated UIC. If found, : 
: Te } $ ! H it returns the contents, and marks the entry used if requested. : 
; 574 1208 | i 
3 75 1564 1 ! CALLING SEQUENCE: : 
: 326 1365 1 | SCAN_QUO_CACHE (ARG1, ARG2) : 
: 578 1 6 1 | INPUT PARAMETERS: 
$ 79 1 $8 ! ARG1: UIC to search for : 
; 380 1 ° 1} to record new use : 
3 4 12 i me to not : 
; ¢ 1571 1! : 
; 3 1276 1! IMPLICIT INPUTS: : 
; 44 130? ! CURRENT_VCB: VCB of volume : 
i 986 1575 1 | OUTPUT PARAMETERS: ; 
; 58 1376 1! NONE : 
; 588 1577 1! : 
: 589 1378 1 ! IMPLICIT OUTPUTS: : 
: 390 1579 1! DUMMY _REC: receives contents of cache entry if found ‘ 
: 391 15 1! QUOTA_INDEX: receives index of cache entry found : 
; 298 13 1 ! QUOTA_RECORD: quota file record number of found entry : 
; 9% 1388 4 | ROUTINE VALUE: ; 
: 44 13 : ' } ndex of entry found : 
: 597 2 1 ' SIDE EFFECTS: : 
; 598 15 & quota cache entry modified : 
; 599 1338 1! : 
Py 600 15 1 len e 
; 601 1590 1 : 
: 608 1591 2 BEGIN ; 
; 60 1 3 : 
; 604 1593 2 LITERAL : 
; 605 1338 RECS_PER_BLOCK = 512 / DOFSC_LENGTH; : 
: $09 1596 LABEL : 
: oo 13 QUOTA_SEARCH; ! body of search code : 
; ei? } 3 —_ QUOTA_CACHE : REF BBLOCK ' ress of ta cache : 
; 61g 1808 QUOTA-LIST : REF BBLOCKVECTOR Cy VEASC QUOLENGTHS, ; 
; 61 1 ; ! sddress Of quota cache entries : 
; 6146 1 J ' index into quota cache : 
; 615 1 LOwEST_LRU, i oldest quota LRU index ; 
ih ba ect EAGCTLAISS) esse antes 7 
: 618 1 OLD “RECORD : REF BBLOCK, | address of old quota record ; 
; 619 1 REC_NUM, : quota file record to read ; 
5 630 Ht FCB : REF BBLOCK; ! address of quota file FcB : 


ee 
PAEAEAAAAAS 


es st a 2 ts 


NOV OOONOUN EU 


MEW 


Vw 


Mwrn— 


SLSLSL LLLP PLS. PPA. ADD AAA 


WN $$ O O@wo 


ISS IIIIVI AACE SRC CCE 


ecccofeceoe 
Soe w= 
=O OO VOUS wo 


WA 


Wir 


us 


PAEAAA AAA 


23332 23 Sos 


DEBE AAAI HIME. BB BBB III IRR IIRINORUPURORUNOROPORORUROROPORUPUNORURURONOND 


SeSeSSTEREE 


> J 


Owner 
ee ee ee ed a ee ed el eel el el el a el el el lel ll el a el a ae el el el el el el ed ed 


SOOO 


—~ 
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pono GL_CLUB ADDRESSING (GENERAL) 
PMSS$GL-QUOHIT =: ADDRES SINGS (GENERA ); 
t_ of quota cache hits 


‘4 ' coun 
PAMSSGL_QUOMISS : ADDRESSING_MODE (GENERAL); 
! count of quota cache misses 


EXTERNAL ROUTINE 


CACHE LOCK : LLNORA, ! acquire cache lock 
READ_BLOCK : LINORM; ! read a disk block 
BIND_COMMON; 


! If the cache is not currently marked valid, do so if possible. 

! This involves taking out the cache lock if the volume is cluster 
! accessible, and checking for quota file writers and a non-null 

: cache size. 


QUOTA_CACHE = .CURRENT VCBCVCBSL_QUOCACHE); 
FCB = .CURRENT_VCBCVCBSL_QUOTAF (CB); 


If WOT .QUOTA_CACHECVCASV_CACHEVALID) 
+ -QUOTA_CACHECVCAS9_CACHEFLUSH) 
BEGIN 

IF .QUOTA CACHEEVCASW QU0S17E) 
AND NOT .BBLOCK CCURRERT UCBLUC 
AND .FCBLFCBSW_WCNT) LEQO 1 


BEGIN 
IF .BBLOCK CCURRENT UCBCUCBSL _DEVCHARZI, DEVS$vV_CLU) 
AND .CLUSGL_CLUB NEQ 


ee CACHE _LOCK”(.FCBLFCBSL_LOCKBASIS], QUOTA_CACHECVCASL_QUOCLKIDJ, 0) 
END 


THEN 
EL SE UOTAACACHELVCASV, CACHEVAL ID 21 
ce QUOTA_CACHECVCASV_CACHEFLUSH) = 1; 


TRU 1 
BSL_DEVCHAR], DEVS$V_DMT) 


: Search the quota cache for an active entry with a matching UIC. 


QUOTA_SEARCH: BEGIN 


QUOTA_LIST = QUOTA _CACHECVCASL_QUOLIST); 
INCR R FROM 1 TO .GUOTA_CACHECOCASW_QUOSIZE) 


GIN 
if QUOTA LISTE -Kol. VeAst .guone cuun) NEQ 0 
eee eK-1, VCASL_QUOUIC) EQL .UIC 


<=° 


ie e_ e_ i 
CONAN WT 


PIEAAEAAAAAAAO 


Mw 


Sass 


Win 


2 
NOV FW 20 ODNO UF 
NOUS VO MEW 


ee eee en ee nn en ee ee ee SS 
Bed ad HO 4 ah PR et 


SSN 


RuePOMOROND 


NNN NNN NNN NN SSSI Saw 


wn 
WIN OOS 
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IF gMARK USE 


BEGIN 
A_LIST VCASW_QUOLRUX] = .QUOTA_CACHECVCASW QUOLRUI; 
QUOTAS ~EAShEtNcagw 6 vouRUy Quota’ CACHELVCASW_QUOLROJ + 1; 


END; 
PMSSGL_QUOHIT = .PMSSGL_QUOHIT + 1; 
J = .K; 

LEAVE QUOTA_SEARCH; 

wo tM 


! We failed to find a match in the quota cache. Search the cache for a free 
entry, or, failing that, the entry with the oldest LRU index. 


Hittin crn = 8: «PMSSGL_QUOMISS + 1; 


tOWEST =) 
INCR J “FROM " TO .QUOTA_CACHECVCASW_QUOSIZE) 


BEGIN 
Veh -QUOTA_LISTC.J-1, VCASL_QUORECNUM] EQL 0 


END; 
LRU_ DELTA = -QUOTA_ wy 3S er -QUOLRU) = .QUOTA_LISTC.J=-1, VCASW_QUOLRUX]; 
IF thle DELTA GTRU- -LOWEST_ 


BEGIN 
LOWEST_LRU = -LRU_DELTA; 
LOWEST_J 


! If the cache entry we are about to use contains a modified entry, we must 
4 reed the a recede update it, and tee it. If it represents a 
; he eld lock, we must release it. 


J = .LOWEST_J; 
IF QUOTA CISTE. .J-1, VCASV_QUOVAL 10) 
AND . QUOTA LISTE. J-1, VCASV“QUODIRT 
BEGIN 
REC_NUM = .QUOTA_LISTC.J-1, VCASL_QUORECNUM) - 1 
OLD-RECORD = READ_BLOCK (.REC / RECS PER BL ot 
+ rte FCBSL_STCBN)> TA_TYPE) 
+ (,REC_NUM MOD RECS_PER“BLOCK) © G0F$C_LENGTH; 


END; 
REL ftola. Lock (J); 
END? ! end of block QUOTA_SEARCH 


! If the quota cache entry is not marked valid, take out the lock on it. 
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3 f : 1786 If thereafter it is valid, fill in the dummy record with its contents. 
; 1 : 
: f tf tek NOT .QUOTA_LISTC.J-1, VCASV_QUOVALID) 
: 7 1 
: 740 3 Broth LISTE. 7 YCASL QuOUIC] = .UIC; 
: 24 V7 GET. dob te Lae Tote t oJ, LERSK  PWRODE) ; 
: 7 17 IF QUOTA LLISTC.J=1, VCASV_QUOVALID} 
: ree 5 3 ag 
: 74 17 UMMY_RECCDQFSL_FLAGS] = DOFSM Ive; 
2 es STEM tear tac 
e . = 
3 re? 1760 SRenOvE { QUOTA_LIST rt J-1,~ List “suées<'b DURMY_R Lede orsi USAGE]); 
; 731 174¢ QUOTA_INDEX = .J; 
: Fa tz J 
: 754 1745 1 END; ! end of routine SCAN_QUO_CACHE 
-EXTRN CLUSGL_CLUB, PMSS$GL_QUOHIT 
-EXTRN PMSS$GL-QUOMESS, CACRE_LOCK 
OBFC 00000 SCAN_QUO_CACHE: 
;WoRD Save R2,R3,R4,R5,R6,R7,RB,RI,R11 : 1554 
SE SUBL SP ; 
st) 02¢4 MOVAB 708(BASE), R11 : 1620 
20 98 MOVL -104(BASES, RO : 1632 
3 3¢ MOVL 92(RO), QUOTA CACHE ; 
0 9 MOVL =1046(BASE), RO + 1633 
54 54 MOVL 84 (RO) FCB : 
43 i) BLBS 1<quofa CACHE) > 1635 
3E 0B A $ #1, 11(Q00TA EARNED : 16 
01 cApy (QUOTA. CACHES, ; 1639 
5 9% VL 08 R > 1640 
2¢ sa : nt oF oY 
01 1C g8{FCB > 1641 
BGTRU 3 
50 b MOVL SToacansey RO > 1644 
1 BLBC  60(R9), 1$ : 
000000006 ist CLUSGL_ CLUB 3 1645 
CLRL =—_ = ( SP) > 1646 
04 S 4(QUOTA CACHE) ; 
4C PUSHL : 
00006 fe CALLS a3, i : 
0B OA B1sB2 #1, 11(QUOTA_CACHE) 2 1650 
0B OA BisB2 sf 11 (quar CACHE) : 1652 
3 44 MOVAB 68(R3), QUOTA. List : 166 
MOVZWL (QUOTA. CACHE) > > 1661 


<o° 
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0 04 CLAL K : 
E Ree ee : 
” 29 ; f een’ gM haat) ee Roe 
06 EC Al Hy ( : 7 cnPLY a, #2 #24, -20(R1), : 
04 ac FC Al p CMPL =4(R1), UIC + 1665 
08 Meg Bee OMAR ;% 
£6 sOAI As 60 MOV QUOTAS tii} -26(R1) : 1868 
AS B6 INCW bro¥eL eon CAC + 1672 
000000006 9 D 5$: INCL + 1674 
56 p MOVL + 1675 
009 BRW igs" : 1676 
CE 50 55 F3 OO09A 6$ AOBLEQ R5, K, 4 : 1661 
000000006 0 D6 INCL  PMS$GL_QUOMISS :1 
D4 CLRL OWEST"LR > 1685 
55 1 pd MOVL #1, LOBEST_J : 1686 
59 63 C MOVZWL (QUOTA_CACRE), R9 + 1687 
0 D4 CLRL i. + 1696 
2A if BRB F 
51 50 if C 7$: MULL3 + 1690 
51 52 C0 ADDL2 ae ath R1 : 
00 EC Al 18 00 FD cMPiV #24, -20(R1), #0 ; 
55 50 6 MOVL . LOWEST_J + 1693 
1A 11 2 BRB 16$ + 1692 
57 02 A3 3 8$: MOVZWL 2 (QUOTA. CACHE), LRU_DELTA + 1696 
6 E6 Al 3C MOVZWL =26(R1), (SP) : 
a 6 Ce SUBL2. (SP) tau: DELTA ; 
58 57 D CMPL RU_DELTA; LOWEST_LRU + 1697 
ee 1 BLEGU : 
58 D MOVL LRU DELTA, » {LOWEST _LRU : 1700 
5 D MOVL Cow : 1701 
D2 50 F $: AOBLEQ a6, _ + 1687 
56 D DE 10$: MOVL LOuESt tg : 1710 
50 56 i £ E MULL3 #28, J> ko” : 1711 
30 52 ¢ E3 ADDL aug ta ALIST, 3° ; 
7 EF AO E E BLBC a9 (RO) : 
32 EF Ap 1 €1 eC BBC a sta’ : 171 
55 EC AO 1 9 EF OOOF EXTZV #24, OF bcRO) REC_NUM : 171 
D7 000F7 DECL nee NOM ; 
5 DD 000F9 PUSHL : 1716 
50 55 4 Pe odor Dives REC RO : 
30 B4p SF 101 PUSHAB fier : 1717 
00006 CF FB 00105 CALLS READ ae york ; 
7E 90 55 1 vA 10A EMUL MSphen =-(SP) : 1718 
51 1 F ; 8 10F EDIV P)+, “Rie *R1 : 
C4 00114 MULL : 
0 1 €0 00117 ADDL2 RI OLD RECORD : 
0 DD OO11A PUSHL  OLO_RECORD : 1719 
DD 0011C PUSHL J : 
0000v CF FB 001 CALLS #2, CLEAN_QUO_CACHE : 
0000v CF 1 3 1 _ CALS #1, REL_QUOTA_LOCK ; 
50 f ta 120A 12$: mutt’ #26, at " > 1728 
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5 17:33:31 AX-1i Bliss-32 V4.0-74 

4 ere eH LP Tix BUGSREICHARGE 2,63 31 
ADDL2 QUOTA_LIST, RO 

BLBS oot ROS 13s 

MOVL UIC, -4¢RO) 

ae tS 

CALLS 4 ah 

BBC #0, -17(RO)CQUOTA_LISTI, 14$ 
mits He 

EXTZy i “3k, =20(RO)CQUOTA_LIST], 692(BASE) 
PUSHAB wee Ros EQuoTA LIST) 

MOVL a(SP)+, 4(RIT) 

MULL ray J, RO 

MOVC3 #12, =16(RO)CQUOTA_LISTJ, 8(R11) 
MOVL J, 704(BASE) 

MOVL J. RO 

RET 
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H q $ 1766 } GLOBAL ROUTINE GET_QUOTA_LOCK (J, Muc®) : L_NORM NOVALUE = ; 
a es ee : 
: £60 1730 1 { FUNCTIONAL DESCRIPTION: 
: 76 17 § 1 i This routine acquires the lock associated with a quota cache : 
; 76 17 1} qntry. e lock is raised to PW, and the value block is stored ‘ 
; ree Mf : : } in the quota cache entry. : 
i 266 1736 1 | CALLING SeQuENce: 
: ree \? 3 ! GET_QUOTA_LOCK (J, MODE) : 
> 769 1759 1 ! INPUT PARAMETERS: 
: 770 1760 1! : index of quota cache entry : 
H gr) 179) : MODE: lock mode to use ; 
3 1768 1 i ampicit inputs: 
; 774 1764 1! CURRENT_VCB: VCB of volume : 
; er? 1762 : CURRENT_RVT: RVT of volume set : 
; 77 1767 1 i OUTPUT PARAMETERS: 
ie en 3 
; 7 1770 1 | IMPLICIT OUTPUTS: 
iB oe in fie 3 
; 78 1778 | i routine vaLue: 
: hes TEED ie heee ; 
; 786 1776 1 | SIDE EFFECTS: 
; 787 wre 3 Lock taken out; value block written into cache entry. : 
; 788 1e78 1! : 
; 789 1779 1 !-- : 
: 790 1789 1 : 
: 291 1781 g BEGIN : 
: 998 1783 3 LocaL ; 
3; 794 1784 CACHE _ENTRY : REF BBLOCK, ! quota cache entry pointer : 
3; 795 1785 STATUS, ! general status value : 
; 796 17 LOCK_FLAGS : BBLOCK (4), ! flags to SENQ call ‘ 
: 797 17 SAVE LRU, : seve cache entry LRU index : 
; 798 1788 RESNAM : VECTOR fee. BYTE), ! resource name buffer : 
; 799 \? 9 RESNAM_D : VECTOR INITIAL (22, RESNAM); : 
; 1791 2 EXTERNAL : 
: 1736 CLUSGL_CLUB : ADDRESSING_MODE (GENERAL); . 
; 1794 2 EXTERNAL ROUTINE ; 
; 1795 : WAIT_FOR_AST : LNORM, ! wait for completion AST ; 
3 1796 CONTINUE" THREAD : L-NORM, ! continue execution thread : 
; 1797 XQPSREL_GUOTA : ADDRESSING_MODE (GENERAL); : 
3 1798 ! unlock cache entry on blocking AST : 
3 scr BIND_COMMON; : 
; 1802 ! If the volume is not cluster accessible, we don't have to bother with : 


Pl ee | 
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; 810 1803 2 ! Locks. ‘ 
3 1} ! : ! ; 
; i§ 1 $ IF .BBLOCK CCURRENT_UCBCUCBSL geet poyev ALLJ : 
3. 814 1 OR NOT .BBLOCK CCURRENT_UCBCUCBSL_DEVCHAKC], BEV V_CLUI > 
3003 !cpso00s 1 3 OR CLUSGL CLUB EQL 0 : 
; 815 1 THEN RETURN; ; 
ee ; 
: 18 1 \§ : See if we have a lock ID for the cache entry. If so, this is just a : 
; 81 181 : conversion. Otherwise, generate the resource name, using the facility : 
3 } 1 ; prefix and the volume or volume set name. ‘ 
; 8 181 
; § i 1817 CACHE_ENTRY = BBLOCKVECTOR EagLOCK -CURRENT_VCBCVCBSL_QUOCACHE] é 
: Beh 1818 VCASL_QUOLISTJ, .J-1, VCASR_GUOLOCK; ,0CASC_GUOLENGTHI; ; 
; H § 18 9 LOCK_FLAGS = LCKSM_SYSTEM + LCKSM_VALBLK + LCKSM_NOQUOTA; : 
H 856 18 ¢ IF_ .CACHE_ENTRY sr ier eet NEQ 0 : 
3 4 + 7 THEN LOCK_FLAGSCLCK$V_CONVERT) = 1 : 
; oa) 1825 ELSE : 
3 3 1826 BEGIN : 
3; 83 1827 CHSMOVE (6, UPLIT BYTE ('F11B$q'), RESNAMLO)); ‘ 
; 834 1828 CHSMOVE (10, : 
; 835 136) IF_ .CURRENT VCBLVCBSW_RVN) EQL 0 3 
; 836 1830 THEN CURRENT_VCBLVCB$T_VOLCKNAMJ : 
s 837 1831 ELSE CURRENT_RVTLRVTST_VLSLCKNAM], $ 
; 838 1336 A at 6]); ‘ 
3 $78 183 (RESNAMC18J) = .CACHE_ENTRYCVCASL_QUOUIC); : 
3 0 ee END; : 
i Bag 1836 5 | Acquire the Lock 
; ! Acquire the lock. : 
2 ee oe 7 
: a: 1839 SAVE _LRU = .CACHE ENTRYCVCASW_QUOLRUX); : 
; 846 P 1349 STATOS = SENQ (EFR = = EFN : 
: 847 P 1841 LKMODE = . ° ‘ 
3; 848 P 1866 FLAGS = .LOCK_FLAGS : 
: 849 P 1 LKSB = CACHE-ENTRYCVCASR_QUOLOCK), : 
3 50 P 1844 ASTADR = CONTIRUE_THREAD, : 
3 51 P 18645 ASTPRM = . e ‘ 
: 25 P | § RESNAM = RESNAM_D : 
: 54 1848 IF NOT .STATUS : 
; 55 1849 THEN ; 
3 2$ 1850 GI : 
3 5 1851 CHSFILL (0, VCASC_QUOLENGTH, .CACHE_ENTRY); : 
; 858 1 38 IF .LOCK_FLAGSCLCRSV_CONVERT) F 
; 859 1855 4 THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’) 3 
; 1854 ELSE ERR-EXIT (.STATUSS; : 
; 1 ' 2? END; : 
; g 1887 5 IF .status EQL SS$_NORMAL ; 
3 ¢ ! 28 THEN WAIT_FOR_AST T%); : 


71 26 42 31 «31 46 0043C P.AAA: .ASCII \F11B$q\ : 


-EXTRN WAIT FOR_AST, CONTINUE_THREAD 
-EXTRN XQPS$REL guorA, SYSSENQ~ 
.EXTRN BUGS$_XOPER 
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; 1860 ! Deal with Lock oy? i ll and handle eny errors. If the lock comes back : 
: 1861 i with value not val turn off the valid bit but preserve the contents. : 
; Hey : 6 We will wtill use the record number to avoid a complete search. : 
: 870 1864 
3 A 65 @ STATUS = .CACHE_ENTRYLVCASW_QUOSTATUS); ; 
: arg 186 IF NOT .STATUS : 
: Brs 1869 § eecin : 
: 876 1870 IF .STATUS EQL SS$_VALNOTYALID ; 
; 877 i f THEN CACHE_ENTRYLVCASV_QUOVALID] = 0 ; 
: 879 1 ig 4 BEGIN ; 
: 880 1874 4 CHSFILL (0, VCASC QUOLENGTH .CACHE_ENTRY); : 
; 881 1879 4 IF .LOCK_FLAGSCLERSV_CONVERT : 
5 aoe 1876 5 THEN BUG_CHECK (XQPERR FATAL, ‘Unexpected lock manager error') i 
: 8B 1877 4 ELSE ERRIEXIT CSTATUSS; ; 
ei bo ee : 
; 887 1881 } | Mewrng acquired the lock, convert it to system owned. ; 
Be 7 
3 890 P 1884 STATUS = SENQ (ERN 2 EEN 3 
: 89 P 1886 FLAGS = $m’ NOQUE E OR LCKSM_SYNCSTS OR LCKSM_CVTSYS OR LCKSM_CONVERT, ; 
; 89 P 188 KSB = atte ernrnyt VCASR ~QU0LOCKI, 3 
: 894 P 1888 BLKAST = XQPSRE A, ; 
; 899 P 89 ASTPRA = .CACHE LENTRY : 
: 897 1891 2 IF .STATUS : 
: 898 1898 THEN STATUS = .CACHE_ENTRYLVCASW_QUOSTATUS); ; 
; 899 189 IF NOT .STAT : 
: 4 1S28 THEN BUG_CHECK (XQPERR, FATAL, "Unexpected Lock manager error’); : 
: 902 1896 2 CACHE_ENTRY[VCASW_QUOINDEX) = : 
3 905 1897 CACHE~ENTRYLVCASW-QUOLRUXJ = aie _LRU; : 
: 905 1899 1 END; ! End of routine GET_QUOTA_LOCK ; 
OBFC 00000 “ENTRY GET QUOCA_LOCK, Save R2.R3.R4,R5.R6.R7.RB,~ ; 1746 ; 
58 000000006 00 96 MOV sy SENQ, R11 : ; 
E 1¢ C SUBL » SP ; : 
04 A 8 he 4 ‘ MOVAB RESNAM, RESNAM_D+4 ‘Meee : 
a5 se AA 0 1 MOVL ={08 (BASED, RO™ > 1806 : 
A AO 1 TSTB 58(RO) 3 3 


fou ee 
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1 
1 
EQ 1$ 
T 
T 


Or Oe Beeie Re : 
01 3c A if D 1S: — BLBS = 60(RO), 28 ; 1807 : 
50 000000006 9 H g 28: MOVAB SLUSGL_CLUB, RO ; 1808 i 
04 B RET : : 
50 98 AA 00 3$: MOVL 7394 (BASED. RO + 1817 
™ =. © 5¢ Ab ; ADDL? $5¢h03" _ ; 
2e : C ADDL #40, CACHE_ENTRY : : 
58 1 0 C MOVL #49. LOCK FLAG : 1820 ; 
04 A p 3 ist 4(CACHE_ERTRY) 39 i 
58 3 8 p Ad 182 , , LOCK_FLAGS ; 1823 i 
08 AE AD AF 6 28 00049 4$: MOVC3 #6, P.AAA, RESNAM : 1827 F 
50 98 AA dO 0004F MOVL =104(BASES, RO : 1829 ; 
OE AO B85 00053 TSTW 14(RO) : ; 
07 12 0096 BNEQ 5$ : i 
50 0080 ¢ H 005 MOVAB 128(RO), RO + 1830 : 
05 11 0005p BRB 65 + 1831 ; 
50 9C AA 18 9 OOSF S$: ADDL #24, -100(BASE), RO : ; 
OE AE 60 0c 28 90064 6$: MOVCS £12. (RO), RESNAM+6 : 1832 : 
1A AE. 18 A6 DO 00069 MOVL 4(CACHE_ ENTRY), RESNAM+18 : 183 i 
59 02 A6 Bc O06 7$: MOVZWL 2(CACHE_ENTRY), SAVE_LRU : 1839 : 
7E 7C 000 CLRQ = =(SP) + 1847 : 
7E 04 00074 CLRL = = (SP) : ; 
5A DD 0007 PUSHL BASE : : 
00006 CF 9F 9007 PUSHAB CONTINUE_THREAD : ; 
7E p4 007C¢ CLRL = = (SP) : : 
18 AE 9F 0007E PUSHAB RESNAM_D : ; 
014 8F 6B 00081 PUSHR #*°M<R6,RB> 3 3 
08 AC DD 0085 PUSHL DE ; ; 
1E DD 00 PUSHL #30 ; : 
68 0B FB O8A CALLS #11, SYSSENQ : : 
oe 37 EB 00090 BLAS. STATUS. 88 ; 1848 
1¢ 00 6€ 00 Se 00098 MOVCS #0, (SP), #0, #28, (CACHE_ENTRY) ; 1851 ; 
33 58 1, EI 99 BBC #1, LOCK_FLAGS, 11$ 1852 ; 
0000+ .WORD <BUG$_XQPERR!4> : : 
01 bs } 8$: cnet TATUS, #1 ; 1857 : 
00006 CF 0 FB O00A6 CALLS #0, WAIT FOR AST : 1858 : 
57 $ 3C 000B 98: ROVZuL (CACHE_ERTRYY, STATUS > 1865 3 
ge ; E ita BLBS STATUS, : 1867 3 
000009FO BF f D} 008 cRPL STATUS. #2544 : 1870 3 
Nas ° ° 
0B Ab of 8A DOE B1CB2 , 11(CACHE_ENTRY) > 1871 : 
tie: 3 > | 
1C 00 bE 00 2c 00 10$: mOvcs ib: (SP), #0, #28, (CACHE_ENTRY) 3 1874 ; 
06 58 OF €1 00¢ BBC #1, LOCK_FLAGS, 11$ > 1875 ; 
FEFF 000 BUGW > 1876 
0050" 90¢ .WORD <BUGS_XQPERR! 4> : 
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; 307 130) } GLOBAL ROUTINE REL_QUOTA_LOCK (J) : L_NORM NOVALUE = | 
: 909 19 ¢ 1 S++ 
; 910 1905 1! 
; 45 1388 : : FUNCTIONAL DESCRIPTION: 
; 318 1906 1: This routine releases the lock associated wits a quota cache 
; 914 1907 1! entry The value block held in the cache entry is written to 
3 P15 1908 1! the lock. ‘ 
> 916 1909 1! 
3; 917 1910 1 ! CALLING SEQUENCE: 
; 918 1911 1! REL_QUOTA_LOCK (J) 
; 919 131¢ s 
; 330 1913. 1 ! INPUT PARAMETERS: 
3 Yel 1914 1! J: index of quota cache entry 
; o5¢ 1915 1! i 
; 9 1318 1 ! IMPLICIT INPUTS: i 
; 924 1917 1! NONE i 
; 925 1918 1! i 
; 926 1919 1 ! OUTPUT PARAMETERS: : 
; 927 1920 1! NONE 
; 928 1921 1! i 
; 929 19 ¢ 1 ! IMPLICIT OUTPUTS: i 
: 930 19 1! NONE i 
; 931 1924 1! i 
: 336 1925 1 ! ROUTINE VALUE: i 
3 oer 19 § 1! NONE i 
3 F 19 1! : 
; 935 1928 1 ! SIDE EFFECTS: y ; 
3 339 1% ; { Lock released. value block written, cache entry marked non valid. : 
; 938 1931 1 !-- i 
; 939 1932 1 i 
; 940 193 BEGIN : 
3; 941 1934 ; 
; 94 1935 LOCAL , ; 
; oh 1938 CACHE _ENTRY : REF BBLOCK; ! quota cache entry pointer i 
> 945 1938 BIND_COMMON; ‘ 
3 96 1939 i 
3; 9% 1940 : 
3 948 1941 ! Release the lock. ‘ 
3: 949 ine : : 
; 950 194 : 
3; 951 1944 CACHE _ENTRY = BBLOCKVECTOR CBBLOCK C.CURRENT VCBCVCBSL_QUOCACHE) ; 
: 93¢ 1945 VCASL_QUOLISTJ, .J-1, VCASR_QUOLOCK; ,0CASC_QUOLENGTH); i 
3: 954 1969 IF .CACHE_ENTRYCVCASL_QUOLKID] NEQ 0 ‘ 
3; 95 1948 THE : 
3 328 1949 BEGIN : 
3; 95 1950 : 
; 958 P 1951 IF NOT SDEQ (LKID = .CACHE_ENTRYCVCASL_QUOLKID) H 
: 959 P 198¢ 5 VALBLK = CACHE ENTRYCVCASL_GUORECNUMS 
: 961 1954 3 THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’); : 
ie i : 
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; 385 13 : Mark the cache entry no longer valid. 
; 967 1960 CHSFILL (0, VCASC_QUOLENGTH, .CACHE_ENTRY); 
: 969 1962 1 END; ! End of routine REL_QUOTA_LOCK 
.EXTRN SYSSDEQ 
003¢ 00 .ENTRY R QUOTA hock. Save R2,R3,R4,R5 : 1900 
50 98 AA 09 O02 HOVE sit (BASE oe t 1944 
52 04 A =.« 90 LL $3¢ho} + 1945 
5 5c ad CO 00008 ADDL2  92(RO) ; 
q 28 ¢ 900F ADDL2 #40 De ENTRY : 
04 A2 OD Ng TSTL 4( (CACHE_ENTRY) + 1947 
16 1 1 BEQL ~=sé18 : 
7E 7 0 17 CLRO = (SP) : 1953 
08 Ad 9F 00019 PUSHAB 8(CACHE_ENTRY) : 
04 A2 OD 001 PUSHL 4(CACHE ENTRY) : 
000000006 00 g4 FB O01F CALLS #4, SYSSDEQ : 
04 0 € 900 6 BLBS : : 
FEFF 00029 BUGW + 1954 
0000* 00028 .WORD <BUG$_XQPERR!4> : 
1¢ 00 6E 08 2c Bote8 1$: mMOVCS #0, (SP), #0, #28, (CACHE_ENTRY) ; 1960 
04 $0038 RET : 1962 


3; Routine Size: 52 bytes, Routine Base: SCODES + 054A 
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H gr) 1386 ! GLOBAL ROUTINE CLEAN_QUO_CACHE (J, Q_RECORD) : L_NORM NOVALUE = 
ee i 

; 979 196 i FUNCTIONAL DESCRIPTION: 

: 378 1989 1 i This routine updates the indicated quota record buffer from the 
$ are 1970 1! indicated cache entry, and marks the record dirty and marks the 
; 97 1971 1! cache entry clean if necessary. 

. cae 

: 98¢ 197% 1 | CALLING SEQUENCE: 

; 983 1979 CLEAN_QUO_CACHE (ARG1, ARG2) 

: 985 1999 1 | INPUT PARAMETERS: 

5 one 1378 1! ARG1: index in quota cache 

3 th dA ; H 0 to not 

: 989 1981 1 i IMPLICIT INPUTS: 

; 990 19 § 1} CURRENT_VCB: VCB of volume 

; 991 1985 1! 

3 836 1988 1 ! OUTPUT PARAMETERS: 

: oar 1% 5 i } ARG2: address of record buffer 

: 995 1989 1 ' IMPLICIT OUTPUTS: 

ep ae Epes oe 

: 998 1990 1 | ROUTINE VALUE: 
me ee) 
> 1001 1998 1 i SIDE EFFECTS: 
; 16 1994 1! quota cache entry modified, buffer marked dirty 

; 100 1995 1! 
3: 1004 1398 1 !<- 
; 1005 1997 1 
3 ioe 1998 BEGIN 
; 100 1999 
3; 1008 000 
: 1900 sid Q_RECORD : REF BBLOCK; ' address of quota record 

: 1011 608 LOCAL 

: a 004 CACHE _ENTRY : REF BBLOCK; ! quota cache entry pointer 

; 1914 3S BiIND_common: 

: 1015 . : 

3; 101 XTER ROUTINE 

3 1917 % sxtis MA WARK. DIRTY : LLNORM; ! mark buffer for write back 

: 1019 1 

; 10 0 \¢ ! Copy the cache entry to the record buffer. If the cache entry is marked 
5 % : + dirty, mark it clean and mark the record dirty. 

: 19 15 2. 

: 1024 1 ACHE_ENTRY = BBLOCKVECTOR CBBLOCK (.CURRENT VCBCVCB$L_QUOCACHE) 

; 195 HH —— : VEASL QUOLISTS® .J-1, VEASR GUOLOCK. ,VCASC_QUOLENGTH); 
51 $ 5 O_RECORD(DOFSL_UIC] = .CACHE_ENTRYLVCASL_QUOUIC); 
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31 0 CHSMOVE (12, CACHE ENTRYCVCASL USAGE], Q_RECORDCDQFSL_USAGEJ); 
3 : 1 HF er ntne nent YCVCASV_QUODIRTYI 
: 1031 : BEGIN 
31 ¢ 4 CACHE_ENTRYCVCASV QugpIATY = 0; 
3 ¥ 5 MARK_BIRTY (.Q_RECORD 
a Bi pate 
: 19 028 END; ! end of routine CLEAN_QUO_CACHE 
007 -ENTRY : AN_ QUO CACHE, Save R2,R3,R4,R5,26 
50 98 AA OD MOVL ne er. 
56 06 ac 1c ¢ MULL 
2° 5¢ 4 C ADDL 
28 ¢ F ADDL iy 0}; ng NTRY 
5 § AC D 2 MOVL Q RECORD, 
06 =A 1 A6 D 6 MOVL 25 (CACHE ENTRY), 4(RO) 
5 8 AC p B MOVL Q REC 
08 a0 OC Ab C F MOVC3 + JeCEACHE ENTRY), Ber 
oc 0B A6 1 4 5 BBC ae ACHE_ENTRY), 
0B A6 2 BA A B1(B2 «a2. 11 CcACHES “ENTRYD 
08 AC OD ig PUSHL  @ RECORD 
0000G CF 01 FB 1 CALLS #1, MARK_DIRTY 
04 1$: RET 


; Routine Size: 55 bytes, Routine Base: SCODE$ + 057E 
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ROUTINE ENTER_QUO_CACHE (J, Q_RECORD, MARK_DIRTY, MARK_USE) : L_NORM NOVALUE = 


yarstt Bliss-32 V4.0-74 


° 2 
F11X.BUGSRCICHARGEO.B39; 1 aoe 35 


oO 
Sse S 


lee 


' 
FUNCTIONAL DESCRIPTION: 


—) a a 4 


This routine enters the oven quota record into the cache at the 
indic sted cache index. If requested, the cache entry is marked dirty. 


CALLING SEQUENCE: 
ENTER _QUO_CACHE (ARG1, ARG2, ARG3, ARG4) 
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! Copy the record data to the cache entry. If requested, mark the cache 
: entry dirty. 
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3 18 1 ! INPUT PARAMETERS: 

3; 1 1! ARG1: index in ta cache 

3; 10 1! anes! address of record buffer 

3: 105 1! ARGS: 1 to mark record dirty 

3; 105 1! to not 

3; 105 1! ARG4: to set lowest possible LRU 

3; 105 1! 1 to set current LRU 

3; 105 1! 2 to leave LRU alone 

3; 105 050 1! 

; 1060 051 #1 =! IMPLICIT INPUTS: 

: 106 b3¢ 1! CURRFNT_VCB: VCB of volume 

3 199 st : QUOTA_RECORD: record number of quota record 
3 1064 055 1 ! OUTPUT PARAMETERS: 

3; 1065 b28 1! NONE 

; 1998 057 1! 

3 106 058 1 ! IMPLICIT OUTPUTS: 
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s 1990 061 1 ! ROUTINE VALUE: 

: 1071 ae 1 | 1 

3 1o76 065 1! 

: 107 064 1 ! SIDE EFFECTS: 

: Ire 065 ! } quota cache entry modified 

: 1976 1 !e= 

tor > BEGIN 

: 1008 a7 

: : 1 % Q_RECORD : REF BBLOCK; ! address of quota record 
3 1 74 LOCAL a 
3 75 QUOTA_CACHE : REF BBLOCK, ! address of quota cache 
3 ! q CACHE _ENTRY : REF BBLOCK; ! quota cache entry pointer 
3 ' BIND_ COMMON; 
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QUOTA_CACHE = .CURRENT veecycesy QUOCACHE; 
CACHE_ENTRY = BBLOCKVECTOR CBBLOCK [.QUOTA_CACHE, VCASL_QUOLIST), 
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IF _ .MARK_USE 
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VCASR_QUOLOCK; ,VCASC_QUOLENGTH); 


BEGIN 
CACHE _ENTRYCVCASW_QUOLRUX) = 
QUOTA_CACHECVCASW_QUOLRUJ = 


ELSE IF .MARK_USE EQI. 0 
THEN 


BEGIN 
a shat etarent = 
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-QUOTA_CACHECVCA$W_QUOLR 
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5 1; 


-QUOTA_CACHECVCA$SW_QUOLRUJ = 1°15; 


«MARK DIRTY 
THEN CACRE_ENTRYCVCASV_QUODIRTY) = 


! end of routine ENTER_QUO_CACHE 
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04 00065 5$: RET 
; Routine Size: 102 bytes, Routine Base: S$CODE$ + 0585 


; 1121 1 1 
3 11 ¢ 115 1 END 
; 11 114 0 ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
1563 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ecceees= Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


~$255$DUA13:CSYSLIBILIB.L32;1 18619 82 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE)/LIS=LIS$:CHARGEQ/0BJ=0BJ$:CHARGEQ MSRC$: CHARGEQ/UPDATE = (BUGS: CHARGEQ) 


; iy Pal 1557 1°3 .° 6 data bytes 


; Lines/CPU Min: 

; poceneesPU-eras 60 

: —" | Used: 311 pages 
; ose ation Complete 


$ Elapsed. Time: 29 ot 
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